В числовую переменную вводится количество целых чисел N (2 <= N <= 100). Определить какие целые числа в диапазоне от 2 до N простые. Проверить входные данные — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
CLS
DO
    INPUT "N (2<=N<=100)"; n
LOOP UNTIL n > 2 AND n <= 100
FOR i = 2 TO n
    k = 0
    FOR j = 2 TO i - 1
        IF i MOD j = 0 THEN k = 1
    NEXT
    IF k = 0 THEN s = s + 1
NEXT
PRINT "kol-vo prostih chisel do"; n; ":"; s

Похожие записи/страницы: